object Form1: TForm1
  Left = 927
  Top = 107
  Width = 999
  Height = 906
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object mmMainMenu: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 983
    Height = 26
    UseSystemFont = False
    ActionManager = amActionManager
    Caption = 'mmMainMenu'
    ColorMap.HighlightColor = clWhite
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Spacing = 0
  end
  object pgcPages: TPageControl
    Left = 0
    Top = 26
    Width = 983
    Height = 842
    ActivePage = tsControls
    Align = alClient
    TabOrder = 1
    object tsControls: TTabSheet
      Caption = #1059#1087#1088#1072#1074#1083#1077#1085#1080#1077
      object pnlMoveControl: TPanel
        Left = 344
        Top = 0
        Width = 631
        Height = 795
        Align = alClient
        TabOrder = 0
        object pnlControlVideo: TPanel
          Left = 1
          Top = 1
          Width = 629
          Height = 328
          Align = alTop
          TabOrder = 0
          object lblZoom: TLabel
            Left = 456
            Top = 248
            Width = 32
            Height = 13
            Caption = #1041#1083#1080#1078#1077
          end
          object lblZm: TLabel
            Left = 456
            Top = 19
            Width = 40
            Height = 13
            Caption = #1044#1072#1083#1100#1096#1077
          end
          object vg1: TVideoGrabber
            Left = 112
            Top = 20
            Width = 331
            Height = 240
            AudioCompressor = 0
            AutoFilePrefix = 'vg'
            DualDisplay_Left = 400
            DualDisplay_Top = 20
            Cropping_Zoom = 1.000000000000000000
            MotionDetector_Grid = 
              '5555555555 5555555555 5555555555 5555555555 5555555555 555555555' +
              '5 5555555555 5555555555 5555555555 5555555555 '
            PlayerSpeedRatio = 1.000000000000000000
            Reencoding_StartTime = -1
            Reencoding_StartFrame = -1
            Reencoding_StopTime = -1
            Reencoding_StopFrame = -1
            TextOverlay_Font.Charset = DEFAULT_CHARSET
            TextOverlay_Font.Color = clAqua
            TextOverlay_Font.Height = -16
            TextOverlay_Font.Name = 'Tahoma'
            TextOverlay_Font.Style = []
            TextOverlay_String = 
              'Example of static text (TextOverlay_Selector=0). Set TextOverlay' +
              '_Selector=1 to see a demo with variables.'
            VideoCompression_Quality = 1.000000000000000000
            VideoCompressor = 0
            VideoFromImages_TemporaryFile = 'SetOfBitmaps01.dat'
            VideoProcessing_RotationCustomAngle = 45.500000000000000000
            VideoSource_FileOrURL_StartTime = -1
            VideoSource_FileOrURL_StopTime = -1
          end
          object tbZomm: TTrackBar
            Left = 456
            Top = 34
            Width = 45
            Height = 206
            Max = 10000
            Min = 1000
            Orientation = trVertical
            Position = 1000
            SelEnd = 10
            TabOrder = 1
            TickStyle = tsManual
            OnChange = tbZommChange
          end
          object swledEnableVideo: TiSwitchLed
            Left = 264
            Top = 280
            Caption = 'On'
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clWindowText
            CaptionFont.Height = -11
            CaptionFont.Name = 'MS Sans Serif'
            CaptionFont.Style = []
            CaptionMargin = 2
            BorderSize = 2
            BorderHighlightColor = clBtnHighlight
            BorderShadowColor = clBtnShadow
            OnChangeUser = swledEnableVideoChangeUser
            TabOrder = 2
            Caption_2 = 'On'
          end
          object laUp: TiLedArrow
            Left = 56
            Top = 24
            Height = 40
            OnMouseDown = laUpMouseDown
            OnMouseUp = laUpMouseUp
            Style = ilasUp
            ArrowBodyLength = 0
            ArrowHeadSize = 40
            OPCItems = <
              item
                PropertyName = 'Tag'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.Camera'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
          object laDown: TiLedArrow
            Left = 56
            Top = 216
            Height = 40
            OnMouseDown = laDownMouseDown
            OnMouseUp = laDownMouseUp
            Style = ilasDown
            ArrowBodyLength = 0
            ArrowHeadSize = 40
            OPCItems = <
              item
                PropertyName = 'Tag'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.Camera'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
        end
        object pnlControlTank: TPanel
          Left = 1
          Top = 329
          Width = 629
          Height = 465
          Align = alClient
          TabOrder = 1
          object lgTankPosition: TiLinearGauge
            Left = 112
            Top = 56
            Height = 425
            PositionMax = 1000.000000000000000000
            PositionMin = -1000.000000000000000000
            PointerColor = clBlue
            KeyArrowStepSize = 0.100000000000000000
            KeyPageStepSize = 1.000000000000000000
            MouseWheelStepSize = 1.000000000000000000
            TabOrder = 0
            TickLabelFont.Charset = DEFAULT_CHARSET
            TickLabelFont.Color = clWindowText
            TickLabelFont.Height = -11
            TickLabelFont.Name = 'MS Sans Serif'
            TickLabelFont.Style = []
            SectionEnd1 = 50.000000000000000000
            SectionEnd2 = 75.000000000000000000
            PositionMax_2 = 1000.000000000000000000
            SectionEnd1_2 = 50.000000000000000000
            SectionEnd2_2 = 75.000000000000000000
            SectionEnd3_2 = 0.000000000000000000
            SectionEnd4_2 = 0.000000000000000000
            Pointers = <
              item
                Style = 0
              end>
          end
          object laKeyUp: TiLedArrow
            Left = 184
            Top = 64
            Height = 40
            OnMouseDown = laKeyUpMouseDown
            OnMouseUp = laKeyUpMouseUp
            Style = ilasUp
            ArrowBodyLength = 0
            ArrowHeadSize = 40
            OPCItems = <
              item
                PropertyName = 'Active'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.KeyUpEvents'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
          object ledSpeedUp: TiLedDiamond
            Left = 186
            Top = 252
            Width = 33
            Height = 33
            ActiveColor = clRed
            InactiveColor = 4194432
            OPCItems = <
              item
                PropertyName = 'Active'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.SpeedChangeSwitch'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
          object laKeyDown: TiLedArrow
            Left = 184
            Top = 433
            Height = 40
            OnMouseDown = laKeyDownMouseDown
            OnMouseUp = laKeyDownMouseUp
            Style = ilasDown
            ArrowBodyLength = 0
            ArrowHeadSize = 40
            OPCItems = <
              item
                PropertyName = 'Active'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.KeyDownEvents'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
          object ioKeys: TiIntegerOutput
            Left = 16
            Top = 16
            Visible = False
            MaxLength = 0
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            TabOrder = 4
            Value = 0
            ValueMax = 0
            ValueMin = 0
            FormatStyle = iifsInteger
            LeadingZeros = False
            ErrorActive = False
            ErrorText = 'Error'
            ErrorFont.Charset = DEFAULT_CHARSET
            ErrorFont.Color = clRed
            ErrorFont.Height = -11
            ErrorFont.Name = 'MS Sans Serif'
            ErrorFont.Style = [fsBold]
            ErrorBackGroundColor = clBlack
            OPCItems = <
              item
                PropertyName = 'Value'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.Keys'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
          object inPosition: TiAnalogDisplay
            Left = 16
            Top = 258
            OnNewOPCData = inPositionNewOPCData
            Precision = 2
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clAqua
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ErrorActive = False
            ErrorText = 'Error'
            ErrorFont.Charset = DEFAULT_CHARSET
            ErrorFont.Color = clRed
            ErrorFont.Height = -11
            ErrorFont.Name = 'MS Sans Serif'
            ErrorFont.Style = [fsBold]
            ErrorBackGroundColor = clBlack
            OPCItems = <
              item
                PropertyName = 'Tag'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.Position'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
          object ioNum: TiIntegerOutput
            Left = 16
            Top = 48
            MaxLength = 0
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            TabOrder = 6
            Value = 0
            ValueMax = 0
            ValueMin = 0
            FormatStyle = iifsInteger
            LeadingZeros = False
            ErrorActive = False
            ErrorText = 'Error'
            ErrorFont.Charset = DEFAULT_CHARSET
            ErrorFont.Color = clRed
            ErrorFont.Height = -11
            ErrorFont.Name = 'MS Sans Serif'
            ErrorFont.Style = [fsBold]
            ErrorBackGroundColor = clBlack
            OPCItems = <
              item
                PropertyName = 'Value'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.NumFactor'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
          object ioDenum: TiIntegerOutput
            Left = 16
            Top = 80
            MaxLength = 0
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            TabOrder = 7
            Value = 0
            ValueMax = 0
            ValueMin = 0
            FormatStyle = iifsInteger
            LeadingZeros = False
            ErrorActive = False
            ErrorText = 'Error'
            ErrorFont.Charset = DEFAULT_CHARSET
            ErrorFont.Color = clRed
            ErrorFont.Height = -11
            ErrorFont.Name = 'MS Sans Serif'
            ErrorFont.Style = [fsBold]
            ErrorBackGroundColor = clBlack
            OPCItems = <
              item
                PropertyName = 'Value'
                ComputerName = 'Local'
                ServerName = 'InSAT.ModbusOPCServer.DA'
                ItemName = 'Controls.TestModBus.DeNumFactor'
                UpdateRate = 200
                AutoConnect = True
                AutoError = False
              end>
          end
        end
      end
      object pnlViews: TPanel
        Left = 0
        Top = 0
        Width = 344
        Height = 795
        Align = alLeft
        TabOrder = 1
        object pnlInfo: TPanel
          Left = 1
          Top = 1
          Width = 342
          Height = 440
          Align = alTop
          TabOrder = 0
          object txt1: TStaticText
            Left = 15
            Top = 40
            Width = 99
            Height = 23
            Caption = #1058#1077#1084#1087#1077#1088#1072#1090#1091#1088#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
          end
          object txt2: TStaticText
            Left = 16
            Top = 147
            Width = 74
            Height = 23
            Caption = #1044#1072#1074#1083#1077#1085#1080#1077
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
          end
          object txt3: TStaticText
            Left = 16
            Top = 257
            Width = 83
            Height = 23
            Caption = #1042#1083#1072#1078#1085#1086#1089#1090#1100
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
          end
          object Panel1: TPanel
            Left = 1
            Top = 1
            Width = 340
            Height = 440
            Align = alTop
            TabOrder = 3
            object StaticText1: TStaticText
              Left = 15
              Top = 40
              Width = 99
              Height = 23
              Caption = #1058#1077#1084#1087#1077#1088#1072#1090#1091#1088#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
            end
            object StaticText2: TStaticText
              Left = 16
              Top = 147
              Width = 74
              Height = 23
              Caption = #1044#1072#1074#1083#1077#1085#1080#1077
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
            end
            object StaticText3: TStaticText
              Left = 16
              Top = 257
              Width = 83
              Height = 23
              Caption = #1042#1083#1072#1078#1085#1086#1089#1090#1100
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 2
            end
            object edtTrytonUp: TEdit
              Left = 16
              Top = 344
              Width = 81
              Height = 21
              TabOrder = 3
              Text = '40'
              OnChange = edtTrytonUpChange
            end
            object txt4: TStaticText
              Left = 16
              Top = 369
              Width = 75
              Height = 23
              Caption = #1058#1088#1080#1090#1086#1085'-'#1040
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 4
            end
            object edtTrytonDown: TEdit
              Left = 16
              Top = 401
              Width = 81
              Height = 21
              TabOrder = 5
              Text = '30'
              OnChange = edtTrytonDownChange
            end
            object udTrytonDown: TUpDown
              Left = 97
              Top = 401
              Width = 16
              Height = 21
              Associate = edtTrytonDown
              Position = 30
              TabOrder = 6
            end
            object ssTryton: TiSevenSegmentAnalog
              Left = 120
              Top = 344
              Width = 201
              Height = 78
              DigitSpacing = 10
              SegmentColor = clLime
              SegmentSize = 2
              ShowOffSegments = False
              OnValueChange = ssTrytonValueChange
            end
            object udHummDown: TUpDown
              Left = 97
              Top = 285
              Width = 16
              Height = 21
              Associate = edtHummDown
              Position = 30
              TabOrder = 8
            end
            object udHummUp: TUpDown
              Left = 97
              Top = 232
              Width = 16
              Height = 21
              Associate = edtHummUp
              Position = 40
              TabOrder = 9
            end
            object udPressDown: TUpDown
              Left = 97
              Top = 176
              Width = 16
              Height = 21
              Associate = edtPressDown
              Max = 110
              Position = 95
              TabOrder = 10
            end
            object udPressUp: TUpDown
              Left = 97
              Top = 123
              Width = 16
              Height = 21
              Associate = edtPressUp
              Max = 110
              Position = 110
              TabOrder = 11
            end
            object udTempDown: TUpDown
              Left = 97
              Top = 69
              Width = 16
              Height = 21
              Associate = edtTempDown
              Position = 25
              TabOrder = 12
            end
            object udTempUp: TUpDown
              Left = 97
              Top = 16
              Width = 16
              Height = 21
              Associate = edtTempUp
              Position = 35
              TabOrder = 13
            end
            object edtTempUp: TEdit
              Left = 16
              Top = 16
              Width = 81
              Height = 21
              TabOrder = 14
              Text = '35'
              OnChange = edtTempUpChange
            end
            object edtTempDown: TEdit
              Left = 16
              Top = 69
              Width = 81
              Height = 21
              TabOrder = 15
              Text = '25'
              OnChange = edtTempDownChange
            end
            object edtPressUp: TEdit
              Left = 16
              Top = 123
              Width = 81
              Height = 21
              TabOrder = 16
              Text = '110'
              OnChange = edtPressUpChange
            end
            object edtPressDown: TEdit
              Left = 16
              Top = 176
              Width = 81
              Height = 21
              TabOrder = 17
              Text = '95'
              OnChange = edtPressDownChange
            end
            object edtHummUp: TEdit
              Left = 16
              Top = 232
              Width = 81
              Height = 21
              TabOrder = 18
              Text = '40'
              OnChange = edtHummUpChange
            end
            object edtHummDown: TEdit
              Left = 16
              Top = 285
              Width = 81
              Height = 21
              TabOrder = 19
              Text = '30'
              OnChange = edtHummDownChange
            end
            object udTrytonUp: TUpDown
              Left = 97
              Top = 344
              Width = 17
              Height = 21
              TabOrder = 20
            end
            object ssDump: TiSevenSegmentAnalog
              Left = 120
              Top = 232
              Width = 201
              Height = 78
              DigitSpacing = 10
              SegmentColor = clLime
              SegmentSize = 2
              ShowOffSegments = False
              OnValueChange = ssDumpValueChange
              ShowSign = False
              DigitCount = 5
            end
            object ssPress: TiSevenSegmentAnalog
              Left = 120
              Top = 123
              Width = 201
              Height = 78
              DigitSpacing = 10
              SegmentColor = clLime
              SegmentSize = 2
              ShowOffSegments = False
              OnValueChange = ssPressValueChange
              ShowSign = False
              DigitCount = 6
            end
            object ssTemp: TiSevenSegmentAnalog
              Left = 120
              Top = 16
              Width = 201
              Height = 78
              DigitSpacing = 10
              SegmentColor = clLime
              SegmentSize = 2
              ShowOffSegments = False
              OnValueChange = ssTempValueChange
            end
          end
        end
        object pnlHtWeight: TPanel
          Left = 1
          Top = 441
          Width = 342
          Height = 353
          Align = alLeft
          TabOrder = 1
          object ssWeight: TiSevenSegmentAnalog
            Left = 96
            Top = 24
            Width = 224
            Height = 89
            DigitSpacing = 10
            SegmentColor = clLime
            SegmentSize = 2
            ShowOffSegments = False
            Precision = 4
            DigitCount = 7
          end
          object btnHtCal: TButton
            Left = 171
            Top = 152
            Width = 75
            Height = 25
            Caption = #1058#1072#1088#1080#1088#1086#1074#1082#1072
            TabOrder = 1
            OnClick = btnHtCalClick
          end
        end
      end
      object sbStatusBar: TStatusBar
        Left = 0
        Top = 795
        Width = 975
        Height = 19
        Panels = <>
      end
    end
    object tsDatas: TTabSheet
      Caption = #1056#1072#1089#1095#1105#1090#1099
      ImageIndex = 1
    end
    object tsSetting: TTabSheet
      Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080
      ImageIndex = 2
      object pnlAtmSetting: TPanel
        Left = 24
        Top = 40
        Width = 129
        Height = 273
        TabOrder = 0
        object lbl1: TLabel
          Left = 21
          Top = 24
          Width = 86
          Height = 13
          Caption = #1055#1086#1088#1090' '#1040#1090#1084#1086#1089#1092#1077#1088#1099
        end
        object lblTryton: TLabel
          Left = 30
          Top = 80
          Width = 70
          Height = 13
          Caption = #1055#1086#1088#1090' '#1058#1088#1080#1090#1086#1085#1072
        end
        object lbl2: TLabel
          Left = 30
          Top = 136
          Width = 57
          Height = 13
          Caption = #1055#1086#1088#1090' '#1074#1077#1089#1086#1074
        end
        object cbAtmPort: TComboBox
          Left = 20
          Top = 48
          Width = 89
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          OnDropDown = cbAtmPortDropDown
        end
        object cbTryton: TComboBox
          Left = 20
          Top = 104
          Width = 89
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Text = 'cbTryton'
        end
        object cbHtWeight: TComboBox
          Left = 20
          Top = 160
          Width = 89
          Height = 21
          ItemHeight = 13
          TabOrder = 2
          Text = 'cbHtWeight'
          OnDropDown = cbHtWeightDropDown
        end
      end
    end
  end
  object amActionManager: TActionManager
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = fsFaleSave
                ImageIndex = 30
              end
              item
                Action = exExit
                ImageIndex = 43
              end>
            Caption = #1060#1072#1081#1083
          end
          item
            Items = <
              item
                Action = actSelectVideo
                Caption = #1042#1099#1073#1086#1088' '#1082#1072#1084#1077#1088#1099
              end
              item
                Action = actFibdDevice
                Caption = #1055#1086#1080#1089#1082' '#1091#1089#1090#1088#1086#1081#1089#1090#1074#1072
              end>
            Caption = #1059#1089#1090#1088#1086#1081#1089#1090#1074#1072
          end>
        ActionBar = mmMainMenu
      end>
    Left = 1032
    Top = 8
    StyleName = 'XP Style'
    object fsFaleSave: TFileSaveAs
      Category = #1060#1072#1081#1083
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1082#1072#1082'...'
      Hint = 'Save As|Saves the active file with a new name'
      ImageIndex = 30
    end
    object exExit: TFileExit
      Category = #1060#1072#1081#1083
      Caption = #1042#1099#1093#1086#1076
      Hint = 'Exit|Quits the application'
      ImageIndex = 43
    end
    object actSelectVideo: TAction
      Category = #1059#1089#1090#1088#1086#1081#1089#1090#1074#1072
      Caption = 'actSelectVideo'
      OnExecute = actSelectVideoExecute
    end
    object actFibdDevice: TAction
      Category = #1059#1089#1090#1088#1086#1081#1089#1090#1074#1072
      Caption = 'actFibdDevice'
    end
  end
  object tmrTryton: TTimer
    OnTimer = tmrTrytonTimer
    Left = 97
    Top = 707
  end
  object cpTryton: TBComPort
    BaudRate = br2400
    ByteSize = bs8
    InBufSize = 2048
    OutBufSize = 2048
    Parity = paNone
    Port = 'COM8'
    SyncMethod = smThreadSync
    StopBits = sb1
    Timeouts.ReadInterval = 5
    Timeouts.ReadTotalMultiplier = 20
    Timeouts.ReadTotalConstant = 2
    Timeouts.WriteTotalMultiplier = 100
    Timeouts.WriteTotalConstant = 1000
    OnRxChar = cpTrytonRxChar
    Left = 17
    Top = 707
  end
  object cpHT: TBComPort
    BaudRate = br9600
    ByteSize = bs8
    InBufSize = 2048
    OutBufSize = 2048
    Parity = paNone
    Port = 'COM2'
    SyncMethod = smThreadSync
    StopBits = sb1
    Timeouts.ReadInterval = -1
    Timeouts.ReadTotalMultiplier = 0
    Timeouts.ReadTotalConstant = 0
    Timeouts.WriteTotalMultiplier = 100
    Timeouts.WriteTotalConstant = 1000
    OnRxChar = cpHTRxChar
    Left = 57
    Top = 707
  end
  object cpAtmosfera: TBComPort
    BaudRate = br9600
    ByteSize = bs8
    InBufSize = 2048
    OutBufSize = 2048
    Parity = paNone
    Port = 'COM16'
    SyncMethod = smThreadSync
    StopBits = sb1
    Timeouts.ReadInterval = -1
    Timeouts.ReadTotalMultiplier = 0
    Timeouts.ReadTotalConstant = 0
    Timeouts.WriteTotalMultiplier = 100
    Timeouts.WriteTotalConstant = 1000
    OnRxChar = cpAtmosferaRxChar
    Left = 20
    Top = 762
  end
end
